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TAPE SURVEV OF A FIELD 

PLOT YOUR BIORHYTHM 

TRS-88 TIDBIT 

HANDY ADDRESSES IN LEVEL II & DISK BASIC 

SKETCH - REVISED BY C. W. EVANS 

CHANGES TO LIFE PROGRAM (SEP. 78) 

DRIVING A SELECTRIC TYPEWRITER 

ONE DRIVER - FORMAT - BACKUP - COPY 

CORRECTION: G. PERKINS" PILLBOX 2 

FLUKES WITH MY TRS-88 



TRS-80 INPUT/OUTPUT CONTROL 



I talked my boss into purchasing a TRS-80 Level II 
for use as an accept/reject test fixture on our assembly 
line (PWB' assemblies). As a result of my efforts we now 
have ij. of them working full time with an average inorease 
in throughput of 300#. 

In the last year I have gained a lot of knowledge 
about interfacing the TRS-80 to the outside world and would 
like to share that experience with your readers. Please 
have interested personnel send a self addressed stamped 
envelope to me for information. 

I have developed an in-expensive I/O interfaoe module 
for operating and controling motors, relays, lights, etc 
It will accept U. inputs (arranged in BCD format for 16 comb- 
inations) and up to 16 independent outputs. The unit is 
complete with self contained power supply and interface 
cable. For Level II onlytdoes not require expansion interfaoe) 
The price including shipping is $35.00 in kit form, or $50.00 
completely wired and tested. Write for details or send Check 
or -Money Order. Quantities limited. 

I also have a schematic for building an in-expensive 
(cheap) sound interface. Send SASE and specify Level I or II. 

Send all inquiries to: 

Frank Polimene 
10 Shoreham- Ct. 
Baltimore, Kd. 21 ?36 
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THE TRS-88 NEWSLETTER IS PUBLISHED MONTHLY IN FAVETTEVILLE, NC 
BY THE TRS-88 USERS GROUP. SUBSCRIPTION RATES ARE *15 88 IN THE US 
*17. 88 IN CANADA * 22. 88 ELSEWHERE IN THE WORLD BACK ISSUES ARE 

AVAILABLE FOR *i. 58 IN THE US, $1. 75 IN CANADA * *2. 88 ELSEWHERE 
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FflYETTEVILLE, NC 28384 



Dear Mr. Lloyd t 

I have just written, for l^K Level II TRS-80, 
a new program which I call Tape Survey of a field. 
I also prepared a 4K abbreviated version which 
omits remarks and instructions. 1 am inclosing a 
typed copy of the instructions which describes the 
program; also a sketch with a sample problem. The 
operation of the program is best understood by 
working the test problem. The program rounds 
results to the nearest tenth of a unit but can 
easily be changed to round to the nearest hundredth. 

I inclose a tape with both the l6K and *J-K 
versions. I have not tried a Level I version but 
would be glad to do so if there is any interest. 
It would, of course, require subroutines. I have 
Level I capabilities. The main problem would be 
typing and editing. I wish someone would write a 
Level II to Level I conversion program. This would 
greatly facilitate editing. 

If you decide to publish the programs and do 
not provide your users with a tape , I would be glad 
to send a cassette version with either or both versions, 
to anyone who would send me a self addressed envelope 
and a tape. If they prefer they may send payment in 
stamps for postage and for Radio Shack's C-30, either 
66$ plus tax for the Concertape or $1.29 for Realistic. 
If they will send me one of their favorite programs 
on the tape, I'll send them one of my own. 

I plan to send a copy of this letter and inclosures 
to CLOAD for their use if they are interested, tfhile 
they buy programs, I would not ask for any payment. 
I think you and CLOAD are doing great work and I'd 
like to help all I can. 



18 'TAPE SURVEY OF A FIELD 

28 '11/38/78 

30 'NEXT LINE SHOWS CLEAR 58. 16K MEMORY 

48 'UNKNOWN 

58 'C. W EVANS, 9886 AMBER TRAIL, SUN CITY, AZ 85351 

60 '(602) 933-1616 

70 DIM X(20), V(20> 

80 PI-3. 141592654 R-18B/P I 

90 CLS: INPUT-DO YOU WANT INSTRUCTIONS (Y/WjA* 

100 IF ft*="N" GOTO 330 

110 IF AtO"Y" GOTO 90 

120 'ANGLES IN RADIANS 

130 CLS :PRINTTAB<12>, "TAPE SURVEY OF A FIELD" PRINT 

140 PRINT" THIS PROGRAM COMPUTES THE RECTANGULAR COORDINATES 

150 PRINT'OF POINTS ON A FIELD SURVEV FROM THE DISTANCES BETWEEN 

160 PRINT-THE POINTS. IT USES A SERIES OF TRIANGLES IN A METHOD 

170 PRINT"TERMED TRILATERATION. ELECTRONIC DISTANCE MEASURING 

180 PRINT" INSTRUMENTS NOW MAKE THIS METHOD COMMON AND SOMETIMES 

198 PRINT-PREFERRED TO TR I ANGULATION. IT ALSO CAN BE USED FOR 

200 PRINT'SNALL PLOT SURVEYS BY TAPING WHEN fl TRANSIT IS NOT 

210 PRINT-AVAILABLE 

220 PRINT: INPUT* HIT ENTER WHEN READY FOR NEXT PAGE"; At 
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239 as : PRINT" THE SURVEY STARTS WITH fl TRIANGLE DESCRIBED 

248 PRINT-BY THE COORDINATES OF TWO POINTS AND THE DISTANCE OF 

258 PRINT"A THIRD POINT FROM EACH. THE COORDINATES OF THE 

268 PRINT-THIRD POINT ARE CALCULATED. THE PROCESS IS REPEATED 

278 PRINT-UNTIL THE SURVEY IS COMPLETED. AS A CHECK, THE SURVEY 

288 PRINT-SHOULD BE CLOSED BY RETURNING TO ONE OF THE ORIGINAL 

298 PRINT-POINTS. 

388 PRINT: PRINT" THE PROGRAM USES THE COSINE LAW TO DETERMINE 

318 PRINT-AN ANGLE FROM THE THREE SIDES OF A TRIANGLE. 

328 PRINT. INPUT" HIT ENTER NHEN READY"; A*: CLS 

338 CLS: PRINT" IF WRONG DATA IS ENTERED, START OVER OR— PRESS BREAK, GOTO 778 



INPUT X<Q),Y(Q> 



'IS";W;"ON RIGHT <R> OR LEFT <L>"; : INPUT A* 



348 INPUT-HOW MANY DECIMAL PLACES DO YOU WANT IN THE ANSWERS 

338 U-18CT 

368 INPUT-WHAT ARE THE POINT NUMBERS OF STARTING BASELINE <l,2>"i 

378 IF P>19 GOTO 368 

388 PRINT-HHAT ARE THE COORDINATES OF POINT NUMBER ";P;" <X,Y>"; 

398 INPUTX<P>, Y<P) 

488 PRINT-HHAT ARE THE COORDINATES OF POINT NUMBER ";Q;" <X,Y>"; 

418 INPUT-WHAT IS THE NUMBER OF THE NEW POINT-; W: IFW>28 GOTO 418 

428 IF W>V THEN V«W 

438 PRINT-LOOKING FROM"; P; -TOWARD"; Q; 

448 IF A*»"L" THEN F«-l:GOTO 468 

438 IF A#-"R" THEN F«i ELSE 438 

468 PRINT-HHAT IS THE DISTANCE FROM ' 

478 PRINT-HHAT IS THE DISTANCE FROM " 

488 ' EQUATIONS 

498 C«SQR<<X<P)-X<Q>>C2*<Y<P)-Y<Q))t2> : ' 

588 IFC-8 PRINT-BASELINE NOT ESTABLISHED 

518 L«ATN < <Y<Q>-Y<P>> / <X<Q)-X<P>) >: 

L-BASELINE ANGLE—RADIANS 

G-QUADRANT 
X<P) AND Y<Q> > Y<P> THEN G«2 
Y<P) THEN G«3 
V<P) THEN G-4 



'jT 



P,Q 



;Q;' 



TO 
TO 



";W; 
'jWj 



INPUT A 
INPUT B 

EQ 1 



STOP 



'8 



EQ 2 



528 

538 G-l:' 

548 IF X(Q> 

558 IF X<Q> 

568 IF X(Q> 

578 



X<P> AND Y<Q> 
X<P) AND Y(Q> 
IF G«2 THEN L-L+PI 
IF G*3 THEN L-L+PI 
598 IF G-4 THEN L«L+2*PI 
688 M«<C*C+B*B-A«*0/2/B/C 
618 K»-RTN(M/SQR<-M^+l))+PI/2: 



588 



'ARCOS 



EQ 3 



F IS LEFT OR RIGHT INDICATOR 



628 ' 

638 N-F*K+L-PI : ' EQ 4 

648 ' COORDINATES OF NEW POINT 

658 X<W)»X<Q)*B»COS<N>:' EQ 5 

668 Y<W)=Y<Q)+B*SIN<N) : ' EQ 6 

678 2-98-L*R:IFZ<8 THEN Z-Z+368 

688 Z«INT<Z*U+. 5>/U 

698 C»INT(C*U+5)AJ: PRINT PRINT-BASELINE: LENGTH"; C; " 

788 X=INT<X<H)*U+. 5)AI 

718 Y»INT<V<W)*U*. 5)A) 

728 PRINT :PRINT"COORDINATES OF POINT"; W; "ARE <";X;", "; Y; 

738 PRINT: INPUT" HIT ENTER WHEN READY-; A* : CLS 

748 INPUT-WHAT ARE POINT NUMBERS OF NEW BASELINE <•,#> 7 

ENTER 8,8 FOR TABLE OF RESULTS. ";P,Q: 

IF P>19 GOTO 748 
758 IF P=8 AND 0=8 GOTO 778 
768 GOTO 418 
778 CLS PRINT-POINT X V 

788 PRINT " 

798 FOR W=l TO V 
888 X=INT<X(W>*U*. 5>/U 
818 V=INT<Y(W)*U*. 5)AJ 
828 PRINT W,X,Y 
838 NEXT 



AZIMUTH"; Z; "DEGREES 



848 PRINT 
858 INPUT" 
868 CLS 
878 GOTO 748 



UJ 



HIT ENTER IF YOU HAVE MORE POINTS. ";A$ 



so 

Y 
10 ' 
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Tape Survey of a Field 
Formulas 

Q 




TO 



* 



3l> 



4o 



EQ 

1 

2 

3 

l* 

5 

6 



LINE 
^+90 

510 
610 
630 tJ * f K ♦ t - ff 

650 



L-- #KlT yr> " Y* *07UST£0 FO* 



■2.0c 



Xu^-X<y-fi5 Cos fJ 
660 y^ - yq + a si*/ tJ 

Tape Survey of a Field 

This program computes the rectangular coordinates 
of points on a field survey from the distances between 
the points. It uses a series of triangles in a aethod 
termed trilateration. Electronic Distance Measuring 
Equipment now make this method common and sometimes 
preferred to triangulation. It also can be used for 
small plot surveys by taping when a transit is not 
available . 
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The survey starts with a triangle described 
by the coordinates of two points and the distance of 
a third point from each. The coordinates of the 
third point are calculated. The process is repeated 
until the survey is completed. As a check, the survey 
should be closed by returning to one of the original 
points. 

The program uses the cosine law to determine 
an angle from the three sides of a triangle. 









Tape Survey of a Field 
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I found Stan Ocker's program SKETCH in your #10 
Newsletter quite interesting, rfhen entering the program 
in Level II, I overlooked the fact that it was prepared 
for Level I. 

I am inclosing a C-30 with my revision for Level II. 
I have also renumbered with range of 10 to 800 with 
spacing of 10. It fits easily in 4K. I have edited 
the opening remarks to change N+W to NW, N+E to N£, etc. 
and to add the line, "Press enter without new data to 
repeat command" j also other minor changes. 



I urge you to prepare and distribute for a reasonable 
charge, a cassette, preferably C-60, with selected programs 
from your Newsletters to date. I think it should put 
special emphasis on Level II. You might even publish 
new listings. Perhaps the authors would like to update 
their programs. I would be glad to help with any 
conversions (and necessary revisions) of Level I programs 
and could renumber them if desired. I would, of course, 
like to receive any programs to be modified on tape. 

I used RACET Computes REMODEL program to renumber 
SKETCH. It can also rearrange the sequence of lines in 
a program. All reference lines are readjusted, as 
required. A companion program, PR0L0AD, which is combined 
with REMODEL can merge programs. They are machine 
language and require l6K Level II, working only or. 
Level II programs. I recommend both. RACET has an ad 
on page 46 of December Kilobaud. The combination price 
is $34.95. 

One side of the cassette has the latest version of 
my Level II SURVEY program I sent you recently. The new 
version permits the user to select the number of decimal 
places in the answers. This version requires l6K. It 
is renumbered. 



9806 Amber Trail 
Sun City, AZ 85351 
(602) 933-1616 



Yours very truly, 

C . W . Evans 
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SAVE ON YOUR 1978 TAXES WITH MICROTAX 78 

MICROTAX 78 for 16K TRS-80 Level II prepares your taxes 1n 
minutes. You receive 6 programs on a 60 minute cassette. 

Completes Form 1040 and Schedules A, B, C, D, and SE 
quickly and accurately. 

Eliminates missed deductions, math errors, and saves 
your time. 

Helps to optimize your 1978 tax return. 

User instructions Included. $9.99. 

Micro Users Tax Booklet 78 shows how to slash taxes. 
Learn how to: 

Claim your micro as a deduction. 

Take a $40 to $400 tax credit. 

Capitalize on IRS regulations. 

Many illustrations, examples and much more. $4.99. 

SAVE $2.00. ORDER BOTH FOR $12.98. 
Send check or money order to 

GEORGE CLISHAM SOFTWARE 

PO Box 1172 TRS-W USERS GROUP - NEWSLETTER - 

Duxbury, Mass 02332 JflUJflRV 1979. V0LWC Z NUMBER 1 - P»«E 3 
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qammon challenger" 

~^jr ray daly unl toa throop 
This backce-json pla-lcg prograa requires 
skill and the usual luck of tha die- to 
beat. Sharpen your play with every ^ui 
utlmt tha always willing opponant. 
16k. Laval I or II. * 1<».95 

space warp 

by a Ik a ports In 

Slallar to tha now classic 'Star Wars 

game, this Independently developed pro 

jru requires aCOUTata shooting for top \,* , j' 

score, ,-ianual positioning of cross halra, 
gaae tlaar. and scoring adds a naw llaen- 
slon to this classic. 4k. Laval II * 6.95 



op r^jf 



32char/ 1 ine 

froa Insiders ta 

Thought only Laval II progress could run 
with 32 characters par line? Just load 
this machine language routine with tha 
CLOAD coxaand, before loading your prograa* 
wrlttan In Laval I for 32 characters p^r 
llns. U k. Laval I $ 3.95 

renum 

froa software associates 
Benuaber any Laval II or DOS prograa! 
Narga any Laval II or DOS programs' All 
line rafaranoas ara ad jus tod. For quality 
Laval II or DOS prograsuslng, this utility 
machlna language prograa la a necessity. 
Laval II t 9.95. DOS f 12.95 on oaaaatta. 
(There Is a difference that other programs 
say not oorraot for.) 

graphic lunar lander 

^y ray daly 
Land tha lunar aodula on tha ooon by firing 
your ratro-rockats. Vartlcla descent only. 
4k Laval I or II } 6.95 

HARDSIUFF/^ 



MEMORY - - - only $ 119 

No solrerlng! In /ust a f aw- ainuta 



toa anyone 

can convert their :RS-80 to 16k or add althar 
16k or 32k to tha expansion lntarfaoa. Coaplata 
kit includes Instructions and dip shunts. 
If you are hesitant, we will gladly send you 
the Instructions FREE to show »ou how easy It la. 





EXFNMSON RIBBON 



Three-foot ribbon ca. le connects THS-eo to 
your «Xi«.-:3ion Interface. 420.00 




COMPUTES CABLEYISION, ISC. 
name 



2617 42nd St KV *2 Washington DC 20007 
" Tlti. 



■T.c« 



city a state_ 
coda __ 



- Check payable to Computer Cable vis ion 
C hASTEHCHAHGE ac bank codai 

- VISA ozp. datai / 
Card nuabers 



Signature-. 




DC residents onl^ 



sz 



«_ 



postage »nd ftanillng 1.C0 



HSMliTBMrWHlSMiniai IMinBlli&IMniK(FNIBa£T1lK*Lx»lIitMf 

itmKSBmmmLmamLwnnwmnLmmMwmntm, ilmit. mmtmwmmas 

Rl»! IMK n n711SBfnK»!IH»IJE1iKnil«IS«, III » 0B» 1 WT I BI^flOTM. BfHRC 

bis u i m it it m b rm, 11 m i mi • nut Mmwiua«raw«*MnanaBfffi 

iwutrnxmommmtimti. 

Maim 

■UHD 

PQ Wffl 

«w wm. a am 

188 CLEAR 1888 : DIN fi<58>, 0(58), Q<58>, T(58) 

HI OS 

128 Bf « ■MONTH" 

138 DATA ft 3L 28, 3L 3ft 31, 3ft 3L 31, 38. 31, 3ft 31 

148 F 7=18 9991 

138 REN VALUES FOR X.V.N ARE TO GIVE SIC HAVE IN THE CORRECT CYCLES. 

168 REN THE NUMBER REPRESENT 368 DECREES DIVIDED BY 2X2ftflND 33 FOR THE CORRECT RATIONS. 

178 F6-12 8571 

188 LET F5-15 6522 

198 PRINT 'HI! NV NHHE IS NfW I'M P. TRS-88. IF VOU'D LIKE I'LL PLOT YOUR BIORHYTHH. ■ 

288 PRINT 

218 PRINT THIS PROGRffl IS VRLID ONLY FOR 28TH CENTURY DATES. * 

228 INPUT'HHHT IS YOUR FULL NflHEVA*. 

238 INPUT'ENTER YOUR BIRTHDATE (N.D. V)";CLCZC3 

248 PRINT'THIS CHRRT HILL RUN FOR ONE NONTH BEGINNING ON THE FIRST DRV OF THE HONTH YOU SELECT' 

238 INPUT"ENTER THE DATE THE CHRRT IS TO BEGIN <H V)';DLD3:D2=1 

268 IFDl=i THEN Bf-'JRNURRV :G=31 

278 IFDi-2 THEN B«="FEBRUBRV:G=28 

288 IFD1-3 THEN B»='HRRCH' :G»31 

298 IFW-4 THEN B«*'APRIL':Q«38 

388 IFM-5 THEN B$-"HBY":G-31 

318 IFD1-6 THEN B$="JUr£':G=38 

328 IFDW THEN B*«'JULY':G»3i 

338 IFD1-8 THEN 8t""AUGUST":G»31 

348 IFD1«9 THEN B^'SEFTetaER" :G=J8 

338 IFD1-18 THEN Bt> 'OCTOBER'. G>31 

368 IFM-11 THEN Bl» "NOVEMBER" :G»38 

378 IFD1-12 THEN B*= •DECEMBER* G=3i 

388 IFDi=2 A»<F/4)-IHT<F/4>»8 THEN <W9 

398 IF D3 < C3 THEN PRINT "INVRLID DATES — PLEHSE RE-ENTER": GOTO 248 

488 CLSiPRINT "P - DENOTES PHVSICfL , S - SENSITIVITY , AND C - COGNITIVE' 

418 PRINT A»;"'S CHRRT BEGINS ON '; Dfc B* ; D3i '. ' 

428 REN DETERNINE NUMBER OF DflYS FROM 8 TO BIRTHDRTE 

438 E1=C1 

448 GOSUB 1218 

431 E2-E2vC2 

468 E3>E2t036S 

478 REN DETERMINE NUMBER OF DflYS FROM 8 TO STflRTDflTE 

488 E1=D1 

498 GOSUB 1218 

388 E2-E2+02 

318 E4-£2+03»365 

528 REN FIND NUMBER OF LEflP YERRS TO ADO IN CflLCULRTION OF DflYS 

538 E5«INT«D3-198e)/4):E6"INT((C3-19ee)/4):E7«£5-£6 

548 E8«<E4-0)vE7 

558 REN FIND DflY OF CYCLE 

568 Fl»INT«(E8/23)-INT(E8V23))*23v 5) 

578 F2"INT(<<E8/28>-INT<E8/28>>*28t.5> 

598 F>lNT<«E8/33MNT<E8/33>*33v 5) ^ ^ ^ _ ^^ . 
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598 REM FIND SINE OF EACH CYCLE FOR EACH DAY OF THE CHART 

686 L$=*" K$*" J$=" 

618 FOR 1=1 TO G 

628 A1=<(SIN((F1*F5)* 8174533)» 38)+38) 

638 A2=((SIN((F2*F6>» 8174533>*38)+38) 

648 A3=((SIN((F3*F7)» 8174533)»38)+38) 

656 REM DETERMINE ORDER IN WHICH LETTERS ARE TO BE PRINTED 

668 ftt=ftl/6:A2=ft2/6:A3=A3/6 

678 Al = INT (Al) 

688 A2 * INT (A2) 

698 A3 = INT (A3) 

788 H=l 

718 IF I > 9 THEN H = (1-18) 

728 IF I > 19 THEN H * (1-28) 

738 IF I > 29 THEN H » (1-38) 

748 K$=K$*STR$(H) 

758 IF I < 48 THEN J$=" 3" 

768 IF I < 38 THEN J$=" 2" 

778 IF I < 28 THEN J**" 1" 

788 IF I < 18 THEN J$=" " 

798 L$<$*J$ 

888 REN INCREMENT CYCLES 

818 Fi»Fi*l:F2=F2*l:F3»F3*l 

828 0(1) ■ Al 

138 8(1) ■ A2 

848 T(I) = A3 

858 NEXT 

868 PRINT LI : PRINT K$ 

878 FOR N « 8 TO 18 

888 «*=" 

898 FOR I ■ 1 TO 6 

988 Z$»" ' 

918 if 0(i)«(h) then z$»' p" 
928 if q(i)=(n) then z*=" s" 
938 if t(i)«(m) then z$»' c" 
948 h$»«$*z$ 

958 NEXT I 

m muffin 

978 NEXT M 

988 PRINT »-LA$.&,C2,C3,Di,D3 

998 INPUT-DO YOU WISH TO PRINT YOUR BIORHYTHM (YES OR NO)';R$ 

1888 IF RS-'VES* THEN 1848 

1818 INPUT'DO YOU WISH TO DO ANOTHER MONTH (YES OR NO)';R$ 

1828 IF R$ *"VES a THEN 248 

1138 GOTO 188 

1848 LPRINT'P - DENOTES PHYSIOL , S - SENSITIVITY , AND C - COGNITIVE' 

1858 LPRINT ■:LPRINTA$i"S BIORHYTHM CHART IS FOR ";B$;D3 

1868 LPRINT" VLPRINT L$ : LPRINT K$ .LPRINT' ■ 

1878 FOR H « 8 TO 18 

1888 MM" 

1898 FOR I * 1 TO G 

1188 Z$«' ■ 

U18 IF H » 0(1) THEN Z$«" P" 



1128 IF H ■ Q(I) THEN Z$»' S" 

1138 IF H » T(I) THEN Z$»" C" 

1148 UP-m*2$ 

1158 NEXT I 

1168 LPRINT H$ 

1178 NEXT H 

1188 GOTO 1818 

1198 END 

1288 REN DAYS ELAPSED CALCULATION SUBROUTINE 

1218 E2-8 



1228 FOR E9 " 1 TO El 

1238 READ F9 

1248 IF F9«28 THEN IF (D3/4)-INT(D3/4>* THEN F9 *29 

1258 E2*E2+F9 

1268 NEXT 

1278 RESTORE 

1288 RETURN 



TRS-88 QUALITY SOFTWARE 



LEVEL I. F#© LEVEL II. 

#1. I DM- I CASSETTE DATA BASE $29 

#2 INV-I INVENTORY CONTROL $28 

•3. STOCK- I SECURITY INFO $18 

«4 BANK-I CHECK BALANCE $16 

#5 FINANCE-I STOCK-I * BANK-I $15 

DISKETTE. 

•12. NfllL-III MAILING LIST $35 

M.4 HORD-III WORD PROCESSOR $35 

#21. INV-I II INVENTORY CONTROL $35. 

•22 KEV-III KEY RANDOM ACCESS $15 

PRICE INCLUDES POSTAGE, CASSETTER * DOCU 



LEVEL II 

•11. WORD- I WORD PROCESSOR 
MflIL-I NAME AND ADDRESS 
SORT-I SORT UTILITY 
STAT- I STATISTICS 
KEY- I KEY-ACCESS 
SALE-I SALE ANALYSIS 
UTIL-I SORT-I * KEY-I 



•15 
•16 
•17 
•18 
•19. 
#26 



MICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON, MA 82174 



$25. 
$25. 
$16 

$10 
$10 
$10. 

$16 



TRS-80 BUS CONNECTORS FOR HOME-BREW INTERFACES TOP QUALITY VIKING 
AND 3-M, GOLD PLATED CONTECTS SOLDERLESS- TYPE TERMINATED IN 18" 40 
CONDUCTOR RIBBON CA8LE $9 95 SOLDER TAII TYPE $6 95 PRICES POSTPAID 
NY RESIDENTS ADD 6* TAX APPLIED INVENTION. RD 2, RT 21, HILLSDALE, 
NY 12529 INQUIRE ABOUT OUR PARALLEL PRINTER INTERFACE FOR LEVEL II 



MS" EA*lc <-A**c*»Ac»e P^oc^^^i 
f^ooocTioA) n *\N/\ce h e«r a^o 

5e.*b *(o To ^tDAitTlX 



TRS-80 TIDBIT 

If you ever wished you could read & write level 2 
tapes with your level 1 TRS-80, in machine language, you 
can using level 2 T-BUG. here's howi 

1. Using the editor assembler "system" tape, load 
level 2 T-BUG into your level one TRS-80. 

2. Then use level 2 T-BUG to read & write level 2 
tapes. 

It is easy if you follow the directions » in the .. 
editor/assembler directions for loading the "system" tape, 
and in T-BUG' s directions for using level 2 T-BUG. 



G. Frank Humiston 

946 S. Anza #15 

El Cajon, CA 92020 
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RKCBJTLY WHILE DEVELOPING A RENUMBERING PROGRAM, I LEARNED OF A FEW 
HANDY ADDRESSES TO KNOW ABOUT IN LEVEL 2 AND DISK BASIC. 

COMMON TO BOTH BASICS ARE THE ADDRESSES THAT HOLD THE STARTING 
AND ENDING LOCATIONS OP BASIC PROGRAMS. START ■ l65*»8 (40A4 HEX) , 
END * I6633 (40F9 HEX) . THESE ADDRESSES ARE STORED IN SPLIT 16 BIT 
INTEGER FORMAT, (least significant byte, »ost significant byte). TWO 
NOTES ABOUT THESE ARE IN ORDER, THE ENDING ADDR. POINTS TO THE BYTE 
IMMEDIATELY AFTER THE 3 CONSECUTIVE BYTES HOLDING ZERO'S IN THEM AT 
THE END OF A PROGRAM. THE BYTE IMMEDIATELY BEFORE THE ONE POINTED TO 
BY THE START ADDR. MUST CONTAIN A ZERO, OTHERWISE SYNTAX ERRORS ARE A 
RESULT. 

THE REALLY NICE THING ABOUT THESE ADDRESSES IS THAT BY CHANGING 
THEM YOU CAN RE-ALLOCATE WHERE BASIC PROGRAMS WILL BE STORED IN MEMORY. 
NOT ONLY CAN YOU RESERVE MEMORY AT THE END OF THAT AVAILABLE BUT BY 
TELLING BASIC (via the pointer address**) TO START PROGRAMS AT A HIGHER 
MEMORY ADDRESS YOU CAN OPEN UP AREA JUST BEFORE A PROGRAM AS WELL. BUT 
DON'T FORGET THAT ONE ZERO BYTE BEFORE PROGRAMS. TO CHANGE THINGS, PICK 
THE NEW ADDRESS AND STORE IT (in the proper format) AT THE START POINTER 
ADDRESS, LOAD THE END POINTER ADDR. WITH THE NEW ADDRESS+2. STORE A 
ZERO AT YOUR NEW ADDRESS- 1. NOW FROM BASIC ENTER THE COMMAND NEW, THIS 
WILL SET-UP ALL OTHER POINTERS THAT BASIC REQUIRES. YOU NOW HAVE A NEW 
AREA IN MEMORY TO STORE MACHINE LANGUAGE PROGRAMS ETC. DON'T USE THE 
AREA IN RAM BEFORE THE OLD START ADDRESS OR OVERWRITE YOUR BASIC PROGRAM 
AREA I 

NOW ACOUPLE OF ADDRESSES FOR DISX BASIC USERS. HAVE YOU EVER WANTED 
TO CHANGE THE NUMBER OF FILES AVAILABLE OR RESERVE MORE AREA FOR MACH. 
LANG. ROUTINES, AFTER YOU JUST BROUGHT BASIC UP ? NORMALLY YOU'D HAVE TO 
GO BACK TO THE D.O.S. AND THEN BRING BASIC BACK IN, AGAIN. BUT IF YOU 
DON'T WANT TO DO THAT, YOU CAN DO A JUMP TO LOCATION 5200 h*x AND GET 
BACK TO THE "HOW MANY FILES 7" QUESTION. A JUMP TO 5C5*" hex GETS YOU TO 
THE "MEMORY SIZE f QUESTION. 

EXP. INTERFACE/DISK USERS, ARE YOU PLAGUED BY UNEXPLAINED SYSTEM 
CRASHES ? SEEMS THAT THE EXPANSION INTERFACE AND DISK DRIVES ARE 
SENSITIVE TO HASH AND GLITCHES THAT ARE ON THE 110 volt POWER LINES. I 
LIVE IN AN APARTMENT TYPE SITUATION AND THERE WAS SO MUCH GARBAGE ON 
THE POWER LINES (oy refrigerator* and *uch) THAT I WAS FORCED TO BUY 
A POWER LINE FILTER FOR MY WHOLE SYSTEM. 

THERE ARE 4 WAYS (I KNOW OF) TO SWITCH FROM 32 TO 64 CHARACTERS PER 
LINE, 2 OF THEM ARE NOT DOCUMENTED IN ANY MANUALS I HAVE, FIRST "PRINT 
CHR$(28)t" NOT ONLY HOMES THE CURSOR BUT REVERTS TO (A CHAR. /LINE. ALSO 
"OUT 255,0" WILL REVERT TO 6k CHAR. /LINE. ("OUT 255.8" WILL PUT THE 
DISPLAY IN 32 CHAR. /LINE). 

HERE'S A MACHINE LANGUAGE SUBROUTINE TO CALL FROM BASIC WHEN GRAPH- 
ICS ARE BEING DISPLAYED. IT WILL 'REVERSE' THE SCREEN. THE CODE IS 
RELOCATABLE AND CAN BE PUT ANYWHERE IN AVAILABLE MEMORY WITH NO CHANGES. 



CK4END 



21003c 


REVRSE 


LD 


HL.3C00H 


77 


013F80 




LD 


BC.803FH 


23 


11BF40 




LD 


DE.40BFH 


7A 


CB7E 


LOOP 


BIT 


7,(HL) 


BC 


280B 




JR 


Z.NOTSET 


20F2 


7E 




LD 


A,(HL) 


C9 


2F 




CPL 




73 


Al 




AND 


C 


18F7 


80 




ADD 


A.B 





LD 


(HL),A 


INC 


HL 


LD 


A.D 


CP 


H 


JR 


NZ.LOOP 


RET 




LD 


(HL),E 


JR 


CKUEND 



NOTSET 



ANOTHER NEAT THINC WHEN RUNNING LEVEL 2 PROGRAMS IS THAT AFTER 
USING THE "INKEY$" FUNCTION, YOU CAN PEEK AT LOCATION 14463 (387F hex) 
TO .S2E IF A KEY IS BEING HELD DOWN. A ZERO MEANS NO KEYS ARE DEPRESSED, 
A NON-ZERO RESULT SIGNALS THAT A KEY IS BEING HELD DOWN. WHILE 'RUNNING' 
A PROGRAM ITS EASY TO PROVIDE A "REPEAT" TYPE FUNCTION. OTHER POSSIBLE 
USES ARE IN GAME PROGRAMS. HOWARD E. FOILES 

USAFSS BOX # 18363 

SAN ANTONIO. TEXAS 782<*3 



DO YOU WANT A BETTER MEMORY? 

MIND-MEMORY IMPROVEMENT COURSE Steps 1 and 2 for your TRS-80 computer 
can teach you to memorize easily and quickly. The MIND course Is a 
copyrighted, quality program for the serious minded who want to Improve 
their memory skil Is. 

Order your MIND course Step I, only $2»».95. Step 2 Is $29-95 or save 
$5.00 and order both for $*»9. 90. (Please add $1.50 each for postage and 
handl ing.) 

We will ship your MIND course In its attractive blue and white binder 
which contains 2 computer cassettes, a teaching manual and also an 
audio cassette for MIND 2. 

Please specify Level 1, kk, or Level 11, 16K. Allow k weeks delivery. 

Visa and Master Charge accepted. List name, expiration date, acct. no. 
and k digits above name for MC, and signature. 

To order or for more Information about these or other self-Impnovement 
computer courses in our Teach Yourself by Computer Series, (TYC tm ) 
send to: 

T Y C SOFTWARE 1 " 1 Dept.T 25 Cedar Cliff Drive Camp Hill, Pa. 17011 




M.CRQ 

MflNflGENENT 

SYSTEHS 



CRO-COMPUTER SPECIALIST 



_ LARRY OWENS , / / 

15 % D<sc*u*r o* IK*-* * '! 



RAOIO SMACK DEALER - MINI MALL 
DOWNTOWN SHOPPING CENTER 
CAIRO OA £/£?0 



• I J-S7T-7I20 



LEVEL II 



"AUDIBLE" 

MAGAZINE 



IMTHISIMU* 



A UNIQUE MAGAZINE FORMAT 
PaODUCED ON A C-4S CASSETTE 
M LEVEL I AND LEVEL * BASIC 
PO* THE ltK TBS-M™ COMPUTE* 

SUBSCRIPTIONS 

$40.00 Per Yeer/S22.00 Semi-Yearly 

Special Introductory Issue Offer $3.00 

FREE INTRODUCTORY ISSUE WITH 

- 1 YEAR SUBSCIPTION - 

LEVEL I magazine 

P.O. BOX 831 6 ANAHEIM, CA 92802 
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10 'FROM USERS GROUP NEWSLETTER NO. 19, NOVEMBER 1978, 

BV STAN OCKERS 9/78 

'REVISO FOR LEVEL II AND RENUMBERED BV C. H. EVANS 
'9896 AMBER TRAIL, SUN CITV, AZ 85351; <692> 933-1616 

THIS VERSION DATE - 12/3/78 
'NEXT LINE IS 16K CLEAR MEM 
'13367 



■ frfrfrfr^ SKETCH ♦♦♦♦♦ " 
ENTER THE COMPASS DIRECTIONS AS N, NE, E, SE, ETC. 

AFTER THE DIRECTION, ENTER LENGTH OF LINE. 



29 

38 

48 

58 

69 

70 CLS 

80 PRINTW.3, 

99 PRINT" 

190 PRINT 

110 PRINT" 

120 PRINT 

130 PRINT-OTHER COMMANDS CAN BE GIVEN INSTEAD OF A DIRECTION: 

140 PRINT- D-ORAN MODE. - LINE HILL BE DRAWN. 

150 PRINT- U-UNDRAU MODE - NO LINE, BUT MOVEMENT. 

160 PRINT" K-KILL - HIPES SCREEN CLEAR, DOES NOT DESTROV MEMORV 

179 PRINT TAB(30>"OF WHAT HAS DRAHN. 

180 PRINT" R-REDRAH - HILL REDRAH ALL THAT VOU'VE ENTERED. ■ 

: PRINT 
190 PRINT-NOTE: PRESS ENTER HITHOUT NEW DATA TO REPEAT COMMAND. ■ 

: PRINT 
299 PRINT TAB<19> "PRESS ENTER TO CONTINUE-; 
210 INPUT A* 
220 DIM A (1099) 
239 1-0 

249 X-64 . V-24 : ' STARTING POINT 
259 CLS 
269 SET(X,V>: SET(X+1,V> 

279 F-l 

280 PR INT 00, "DIRECTION (N,S,E,H,NE> ETC. , D, U, K, OR R>"; 
290 INPUT Q* 

399 IF Q*-"N" THEN Q=l 

319 IF Q$-"S" THEN Q>2 

320 0$-"E" THEN 0*3 

339 IF Q*-"NE" THEN 0-4 

340 IF 0*-"SE" THEN 0-5 
350 IF Q$-"H" THEN 0-6 
360 IF 0*»"NH" THEN 0-7 
370 IF 0$-"SH" THEN 0-8 

380 IF Q*="R" THEN Q=12:G0T0 550 
399 IF 0*«"K" THEN 0-9: GOTO 249 
499 IF Q*-"D" THEN 0-19: GOTO 519 

419 IF Q*="U" THEN 0=11: GOTO 539 

420 PRINT050, "LENGTH"; : INPUT L 
439 A(I>«0: I-I+i: A<I)-L: I-I+l 
449 IF F-0 THEN 409 

459 FOR J«l TO L: GOSUB 799 

469 IF <X«126> OR (X-0> OR <V-47> OR (V-«> THEN 289 

470 NEXT J: GOTO 200 

480 FOR J-l TO L: GOSUB 780 

490 IF <X-126> OR <X-0> OR <V-47) OR <V-9> THEN 280 

580 NEXT J: GOTO 299 

519 F-i: A<I>«1999 

329 I-I+l: GOTO 299 

539 F-9: A(I>-2999 

540 I-I+l: GOTO 289 

559 A<I>-9: 1-0: CLS: X-64: V-24 

569 F=l 

570 IF A<I>-0 THEN 200 
580 IF R<I)=1900 THEN 689 
599 IF A<I>-2990 THEN 690 

609 Q-A(I>: I-I+l: L-A(I>: I-I+l 



610 IF F«0 THEN 650 

620 FOR J-l TO L: GOSUB 790 

630 IF <X-126> OR <X-0> OR <V«47) OR <V»0) THEN 570 

640 NEXT J: GOTO 570 

650 FOR J-l TO L: GOSUB 788 

660 IF (X-126) OR <X-0> OR <V=47) OR <V-8> THEN 570 

670 NEXT J:GOTO 570 

688 F-l: I-I+l: GOTO 570 

690 F-0: I-I+l: GOTO 570 

700 V-V-l 

710 X-X+2: RETURN 

720 V-V+l 

730 X-X-2: 

740 V-V+l: 

750 V-V+l: 

760 V-V-l: 

778 V-V-l: 



RETURN 

GOTO 710 

RETURN 

GOTO 730 

RETURN 

788 RESET<X,V>: RF*CT <X+1>V> 
790 ON GOSUB 770 , 750 , 710 , 700 
800 SET<X,V): SET(X+1,V>: RETURN 



740 , 730 , 760 , 720 



GORDON, 

I LIKE VOUR NEHS LETTER VERV MUCK 

I MADE SOME MINOR CHANGES TO 

LIFE PROGRAM (SEPT. PAGE 2,3) (LEVEL II) 

1 ADDED INTRODUCTION LISTING 
COHHAV'S RULES OF LIFE 

2 CHANGED PROGRAM TO USE 

t FOR UP 4> FOR DOWN 

♦ FOR LEFT •* FOR RIGHT 
LINE CHNGED 

108 PRINT 4> «UP, CHR*(92> * -DOWN, CHR$(94> 

•RIGHT, «- CHR*(93> •♦ -LEFT, S-SET, E-END 

190 IF ZS^ftND V>7 THEN V-V-P ELSE 200 

269 IF ASC(Zf )-10 AND V<H+6THEN V-V+P ELSE 210 

210 IF ASC(Zf>«9 AND X<H THEN X-X+P ELSE 220 

220 IF ASC(Z*>«8 AND X>P THEN X-X-P ELSE 238 



FOR NE THE ARROWS ARE EASIER TO USE. 

CHR«(138> «** f*** 

THANKS FOR HELPING ME FIND A TRS-80 SCHEATIC. 
RUSSELL STARKEV 
855 EISENHOWER AVE. 
JASPER, IN 47546 
812/482-1016 



PS. 



I'LL GIVE GIVE VOU BACK A COPV. 



I CONVERTED MV COMPUTER FROM 4K TO 16K HITH - CHR»(34)- CHIPS- CHR»(34>- 
FROH TRS-80 USERS GROUP. 
MV COMMENTS: 

1 HATCH AS VOU REMOVE CHIPS FROM METAL TUBE VOU COULD SNARE A PIN! 

2 DIP PLUGS(Z3) SHOULD BE PROVIDED HITH THE KIT, FOR A SOLDER LESS CONVERTION 

3 16K IS FANTASTIC!!!! 

4. HOULD ALSO LIKE TO SEE A STEP BV STEP INSTRUCTION. 

TRS-80 USERS GROUP - fCHSLETTER - 
JANUARV 1979, VOLUME 2, NUMBER 1 - PAGE 7 



Oear Gordon, 

I am now driving a Selectric typewriter with my TRS-80 
using an interface which I built. The interface is patt- 
erned after the one described In the June 1978 KILOBAUD 
by Emerson Brooks. Brooks' article Is well written and I 
advise anyone interested to read It. I will describe be- 
low only those Items which differ from Brooks' method. 

First, since the TRS-80 basic unit does not have a 
latched I/O port, I used an 8212 I/O port connected dir- 
ectly to the edge connector pins on the keyboard thru a 
double-ended strap. The 8212 was mounted on a 2-slded PC 
board so that one end of the strap connects to It In the 
same way the other end connects to the keyboard. Also 
mounted on the PC board are three 7<t08s and one 71*00. 
These ICs are connected In the same way as shown in Brooks' 
article except I did not use the CA2 signal (to control 
the power supply or the T/W motor). The 8212 and the other 
four ICs are supplied +5v from the keyboard connector. 
(This led to a problem when I got Level II since the tech- 
nicians cut the +5v to pin 39; when I connected up my 
interface nothing worked! Hy solution was to un-mod the 
mod. ) 

Second, my typewriter Is a model 72 with a 15" platen 
and came with a Novar PC board to drive the solenoids. I 
discarded this board and a small shoebox full of associated 
micro-switches and sensing colls since I do not plan to use 
the T/W keyboard for Input to the computer. I then built 
a 27 volt power supply and used 2NU400 transistors to drive 
the solenoids. Each solenoid uses up to 300 ma and as many 
as six of them are activated at the same time so a hefty 
power supply is needed. The output from the interface Is 
connected thru a 1U-1 Ine 30" strap with DIP connectors on 
each end to the driver board. 

The table below gives the connections between the TRS-80 
pins and 8212. Note that only A0 is used to select the 
8212. Since A0 is also high when the cassette port is in 
use, this means I must turn the T/W off while reading or 
writing tapes. I plan to buy a Bootstrap Enterprises TBUSS 
motherboard and put my interface on a 4t»-pin board which 
will plug into the TBUSS. Full address decoding will be 
added at that time. 

The exact combination of the data lines - to - solenoid 
signals is not critical since all character encoding is 
done in software. The particular combination shown was 
selected for ease of PC board design. 



TRS-80 Pins 8212 Pins 



25 


A0 


37 


GND 


39 


♦ 5v 


12 


OUT 


30 


DO 


22 


Dl 


32 


D2 


26 


D3 


18 


Dli 


28 


D5 


2k 


D6 


20 


D7 



{ 



17 


DS2 


12 


GND 


2 


MO 


11 


STB 


lit 


CLR 


1 


D31 


'*3 


DI0 


5 


Oil 


7 


DI2 


9 


DI3 


16 


DU 


18 


6 16 


20 


22 


DI7 



Solenoid signal 
Shift 
T2/TAB 
Tl/LF 
Rl/CR 
R2/BS 
R2A/SP 
R5 
CK 



8212 


Pins 


17 


DO 5 


10 


D03 


8 


D02 


6 


D01 


It 


DO0 


21 


DO 7 


19 


DO 6 


15 


DO it 



Next rrion 


th I'll expl 


ain how the Z80 software routine 


for 


interface works and, la 


ter, how the routine may be linked 


to L 


evel II 


BASIC 


/ RSM- 


IS, Radio Shack Editor/Assembler, 


or 


% 


other program 


. 








^TJene 


-S.-iff 


kins, 


522% 


Wlnlfre 


d/ Ft Worth/ TX 76133 








88168 


(PROGRAM BY JAMES B PENNY 








00206 


(FILE NAME: MEMSOR 








00300 


i ENTRY 


PT 4418 


HEX, 17424 DECIMAL 








00406 


i PRINTS 


RSCII VALUE OF IK CHINK OF 








00500 


; MEMORY 


WHICH C8N SCROLL UP OR DOWN 








88680 


; USING 


KEYBOARD 


ARROWS PROGRAM 








86766 


; BEGINS 


AT 8666H AND REPEATS WHEN 








66888 


:FFFFH 


<64K> IS 


REACHED EACH KEY- 








•&oZf9d 


; STROKE 


SCROLLS 


4 LINES 




C410 




81688 




ORG 


6C416H 




C418 


31FDCF 


61166 




LD 


SP, 8CFFDH, I N I T STACK 








81286 


; NOTE 


3848H IS 


TRS-88 FUNCT. KEY COL 




0413 


DD214838 


81368 


KBD 


LD 


IX, 3848H 




C417 


DD4680 


01466 




LD 


B, qx> 




C41R 


CD55C4 


81566 




CALL 


DLV 




C41D 


DO7E80 


81668 




LD 


A, <IX> 




C420 


B8 


61786 




CP 


B; CHECK DEBOUNCE 




C421 


20F0 


61868 




JR 


NZ, KBD 




C423 


FE88 


81968 




CP 


8H;UP ARROW 




C425 


2609 


02000 




JP 


NZ, DOWN 




C42? 


FD214AC4 


82188 




LD 


IV, BYTE 




C42B 


FD3466 


82286 




INC 


<IY) 




C42E 


1818 


02300 




JR 


SUB 




C438 


DD7E68 


82486 


DOWN 


LD 


A, (IX) 




C433 


FE18 


02560 




CP 


18H;D0WN ARRROW 




C435 


2089 


02600 




JR 


NZ. KDN 




C43? 


FD214AC4 


02766 




LD 


IV, BYTE 




C43B 


FD3560 


02800 




DEC 


<IV) 




C43E 


1868 


82960 




JR 


SUB 




C448 


flF 


83868 


KDN 


XOR 


A; ZERO A 




C441 


DDBE00 


83186 


HERE 


CP 


<IX); IS KEY ACTIVE? 




C444 


28CD 


83288 




JR 


Z,KBD; IF NO THEN LOOP 




C446 


26F9 


83368 




JR 


NZ, HERE; IF YES STAY HERE 




C448 


2168 


83488 


SUB 


DEFM 


21H;FAKE OUT 




C44A 


80 


83566 


BYTE 


DEFB 


8H;THIS BYTE CHANGES 








03550 


; SCREEN 


MEMORY 


STARTS AT 3C86H AND STORES 








03555 


;488H BYTES OF 


DATA 




C44B 


11003C 


03600 




LD 


DE, 3C88H; DESTINATION 




C44E 


616684 


03700 




LD 


EC, 400H; COUNTER 




C451 


EDB8 


03880 




LDIR 


; TRANSFER DATA BLOCK 




C453 


18EB 


83968 




JR 


KDN 




C455 


F5 


84860 


DLV 


PUSH 


AF 




C456 


216881 


84188 




LD 


HL,186Hi DEBOUNCE DELAY 




C459 


2B 


84288 




DEC 


HL 




C45A 


7C 


84368 




LD 


R'H HERE 


C441 


C45B 


B5 


84488 




OR 


L KDN 


C448 


C45C 


28FB 


64568 




TP 


NZ. DLV+4; DEC HL TO 8 SUB 


C448 


C45E 


Fl 


04600 




POP 


OF BYTE 


C44A 


C45F 


C9 


04700 




RET 


DOWN 


C438 


C418 




04800 




END 


KBD-3 dlv 


C455 


90960 TOTAL ERRORS 






KBD 


C413 
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DEAR GORDON, 

I'VE REfiLLV APPRECIATED THE NEWSLETTER THESE LAST 

8 MONTHS OR SO. WOULD YOU PLEASE ADD MY NAME TO THOSE 

THAT WOULD LIKE TO TRADE PROGRAMS. I HAVE A 16K LEVEL II 

MACHINE. HOWEVER, SINCE I HAVE PURCHASED A "LEVEL I IN 

LEVEL II RAM" PROGRAM, I CAN RUN EITHER LEVEL I OR LEVEL II. 

SO, IF ANY OF YOU READERS WOULD ALSO LIKE TO TRAOE PROGRAMS 

1-TOl, JUST SEND ME A CASSETTE WITH YOUR PROGRAMS IN EITHER 

LEVEL I OR II <AS MANY PROGRAMS AS YOU LIKE) AND I WILL RETURN 

YOUR CASSETTE WITH THE SAME NUMBER OF PROGRAMS ON IT. I 

HAVE ABOUT 188 PROGRAMS OR SO 

THANKS AGAIN AND KEEP UP THE GOOD WORK 

PAUL J. TOURIGNY 
22123 92ND W. 

EDMONDS, WA. 98829 



THE 3-RING BINDER SEEMS TO BE AN EXCELLENT IDEA, BETTER THAN 5 i/2 X 8 i/2 

JUST ONE WORD ABOUT NEW DISCS FOR THE DISC DRIVE. IF YOU HAVE ONLY ONE 

DRIVE, THE DOS/DISC BASIC DISC MUST BE IN PLACE AT ALL TIMES TO FORMAT 

A NEW DISC, DO NOT FOLLOW THE MANUAL (THIS IS FOR MULTI-DRIVE PEOPLE) 

THE CORRECT PROCEDURE IS: INSERT OLD DOS DISC, BRING UP "DOS READY", 

KEY IN "BACKUP", WATCH SCREEN FOR COMMANDS. YOU WILL INSERT DRIVE "8" FOR 

SOURCE DISC, DRIVE "8" FOR NEW DISC, THEN, ON COMMAND, REMOVE OLD DISC. 

INSERT NEW DISC AND GO ON AS DIRECTED. THE COMPUTER WILL THEN COPY THE 

ENTIRE DISC, BASIC AND ALL UNTILL IT HAS ALL THE MATERIAL ON THE OLD DISC 

COPIED. SEVERAL SWITCHES BETWEEN OLD A NEW DISCS WILL BE REQUIRED. 

AT END, INSERT NEW DISC AND "KILL" ALL UNWANTED FILES. DRIVE HILL WRITE 

OVER THE UNWANTED FILES, EVEN THOUGH THERE IS NO ERASE HEAD. 

RADIO SHACK HAS A CUSTOMER SERVICE NUMBER: 817/398-3385, WHO WILL HELP 

WITH STICKY PRROBLENS. (NO MODIFICATIONS OF THEIR EQUIPMENT, HOWEVER) 



IVAN M MILES 

872 BEAVERBROOK DR 

ATLANTA, GA 38318 



NW 



CORRECTION: The author of the "Telephone Toll Accumulator" program listed 
In Volume 1 Rubor 10, Page U, la not John Marler aa listed. 
The author is Fred Blechaan, Canoga Park, GA, who owns statutory 
righte and copyright privilege on this program. Sorry for the error. 



SAVE 18X, 15X OR MORE ON ALL COMPUTERS, PERIPHERALS, SOFTWARE, 
AND ALL OTHER FINE 'RADIO SHACK' <£ PRODUCTS. 

NO TACES ON OUT-OF-STATE SHIPMENTS. 

WARRANTIES WILL BE HONORED BY YOUR LOCAL 'RADIO SHACK' ® STORE. 

VERBATIM DISK $3. 58 

HENRY'S ENGINEERING CO. 

P. 0. BOX 629 

PRINCE FREDERICK, MD 28678 

(381) 855-6777 (381) 535-3142 



71 Tunis Bay 
Winnipeg, Manitoba 
83T 2X2 Canada 

October 29, 19?8 
Dear Bob: 

Hurrah! I ! Finally something on cheap printers. I have a 
couple of ?5'e (patiently ?) gathering dust waiting for something 
like the TTEL-101 you mentioned in the newsletter. 

Please tell me more. What is the TTEL-101? Who makes it? 
Can it get around the missing characters on the 28? Are you plann- 
ing something like a group purchase for the Users Group? What will 
it coat? Should I start on an ASCII to Baudot converter, or does 
the TTEL-101 handle that also? 



I ran into a atrange one with Gene Ferki 
1,#3)> I loaded it and it ran fine for some time 
later I got .. HOW? 860 BES. ( A( I )? , A( I* 1 ) . Aft 
ching I changed the program to 851 X=A( I ) : T«A( I. 
and ran it again. I wasn't too surprised when I 
BESET(X?,Y). I put a temporary stop at 852 and c 
T. They were .261803. 1* ,0, -1 .00392 ,«nd -1.00392 
had a clue, with I at no wonder I got some str 
and I coordinates. I took a look at the trajecto 
gram and from line ?60 it appears that B starts 
ged line 850 to read F.I=2TQBS.2 . Simple right! 
why did the program ever run for me at all? Any 



ns' Pillbox 2(Vol. 
. A couple of weeks 
er some head scrat- 
1) 360 BESET(X.I) 
got .. HOW? 860 
ailed up A,B,I,Xand 
respectively. Now I 
ange results for X 
ry part of the pro- 
at value 2. I chan- 

Question remains 
one have any ideas? 



The number base conversion program by Wayne Levin in the #6 
issue alao won't run for me. It bombs out at line 500, probably be- 
cause it doesn't have a line 700 to go to. I must admit that I have 
not tried very hard to debug it, but perhaps someone (Wayne?) could 
save me and other subscribers the trouble. 



The TTL-101 Did not get off the 
drawing board. 



Peter (nip 



DEAR TRS-88 USERS GROUP: 

I HAVE DISCOVERED SOME FLUKES WITH MY TRS-88 AND WONDERED IF 
ANY OTHER MEMBERS HAVE NOTICED THE SAME PROBLEMS. ALTHOUGH 
THE MANUAL SAYS YOU CAN WRITE OUT 255 BYTES, MY SYSTEM HILL 
ONLY READ 249 BYTES BACK FROM TAPE. I SUSPECT THE LOST SIX 
BYTES ARE USED FOR CONTROL INFORMATION. ALSO ON MY SYSTEM 
IF YOU WRITE CHR*(8> OR CHR*(13> OR CHR*(58) TO TAPE, YOU 
CANNOT READ THEM BACK FROM TAPE. IF ONE OF THESE CHARACTERS 
IS ENCOUNTERED DURING A TAPE READ, IT WILL TERMINATE THAT 
READ. ALL DATA BEHIND THAT CHARACTER IS LOST. I CANUNDER- 
STAND THE USE OF CHR*<8>, BUT I WONDER WHY THE OTHERTWO ARE 
USED. 

P. S. GORDON - KEEP UP THE GOOD WORK. WE SERVICEMEN OVER 
HERE IN ATHENS, GREECE ENJOY YOUR NEWSLETTER 

ROBERT DANIEL 
PSC BOX 2888 

APO N. Y. 89223 



VISTfl V80 MINI DISK SYSTEM 

1. 23X MORE STORAGE CAPACITY 

2. FASTER DRIVER - 48MS FOR TRS-88 

3. DOUBLE DENSITY FOR DOUBLE STORAGE 
HERE'S WHAT VOU GET: MINIFLOPPY DISK DRIVE 

POWER SUPPLV 
REGULATOR BOARD 
COMPACT CASE 
FOR MORE INFO & PRICE - WRITE TO THE USERS GROUP 
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TRS-30 LEVEL I 4K PROGRAM FOR SALS 

The following programs are available on cassette - any FOUR for $7.95, 
postpaid USA. California residents add 6$ sales tax. 

(1) Telephone Toll Totalizer: Save money on toll calls. Includes instructions 

and details of how toll calls are billed, including discount 
periods. Keeps track of total minutes on the call, total cost, 
seconds to next charge. Actually counts-down by the second to the 
next charge. No connection to the phone line needed. 

(2) Invest or Save?: Evaluates an investment over a period of time, and 

compares it with the same amount of money left in a savings 
account. Have you made any money on that silver or gold 
investment, or shares of stock, or bonds - or would you have 
been better off leaving it in the bank? Also tells you future 
value of an anticipated investment, 

(3) Mortgage Loan: Calculates monthly payment for any principal, interest and 

number of months, and displays tabulation of principal, interest, 
principal-paid-to-date , interest-paid-to-date, and balance remaining, 
for each month. Also shows last payment and total interest. Can also 
be used with any payment you specifies, and shows final balloon 
payment. 

(U) Interest Calculations: Daily, monthly, quarterly or annual interest 

calculations for any (reasonable) principal, period and interest 
rate. Will tabulate interest for each period, total interest 
and total value for each period. 

(5) Pay Now or Pay Later?: 'feny professionals, such as doctors, dentists and 

lawyers, do not charge interest if you pay them monthly. Find out 
how much you'll save by doing this - you'll be surprised.' Just put 
the amount of the bill in a savings account and pay monthly, instead 
of paying the whole bill at once. See how much you save! 

(6) Changing Billboard: For counter or window display in a store or at a 

business show, you can use your TRS-30 as an advertising billboard, 
programmed with your own changing message. 

(7) Adding Ifachine: Use your TRS-30 as a printing adding machine. Prints 

and adds entries in a column. Subtotals, too. 

(<?) Digital Clock: Displays hours, minutes and seconds in 12 or 2U hour format, 

(9) Simplified Bookkeeping: Totals up to 12 columns. You enter amount of, 

for example, an expense, and the column this expense would fall 
in. Column 1 is the amount, and you fiave 11 other columns for 
whatever categories you choose. Program adds all columns and 
displays totals. 

(10) Order Checking: Displays and adds four colunns, shows totals of all 

columns and adds tax and handling. For verifying invoices. Easily 
modified for whatever tax or handling you desire. 



FRED BLECHMAN K6UGT 
7217 BERNADINE AVE. 
CANOGA PARK, CA 91307 
Phone 1 (213) 3^-7024 



Jeff Brines 



ROUTE 1, BOX 260, HICKORY, N. C 28601 

Sept. 22, 1978 



R. G. Lloyd 
TRS-80 NewBletter 
7534 Southgate Rd. 
Fayetteville, N.C. 28504 

Dear Bob, 

Issue #8 looks great. Th« printer really makes the program listings 
look good and easier to follow. 

Hare a oouple of items that may be of interest to the ■embers, 

r 

If anyone is looking for QUALITY and QTJAbtxti software, they should 
order the TRS-80 Library 100 from The Bottom Shelf, P.O. Box 49104, 
Atlanta, Ga. 50559. 100 progr ams for 49.50 (+2.00 ship.) 

I don't have all of the p rogr am s, just the first 50 along with the 
enclosed letter, which speaks for itself, I an very impressed with 
the programs I hare received. With the exception of a few typografikal 
(funny) errors, the programs seen to work fine. 

Probably what impressed me most about these fellows is the fact that 
they ohose to respond to their orders in the manner they did. Another 
company might hare 1 )let us sit out here for another couple of months 
waiting for something, or 2) rushed things up and released the programs 
with potential errors in them. 

You can see by their pricing that they aren't out to rip anyone off 
whan it comes to money. 100 pr ogr a ms for 150.00 sounds too good to be 
true.. .but it is. 

The other item is the enclosed flyer I received from our new computer 
outlet here in Hiokory. He hopes to have a unit in by our next meeting, 
and I am eagerly awaiting its* arrival. 

Oh yeah.. .If you haven't already ordered your copy (subscription) 
of TES-80 Computing run (don't walk) to the pos toff ice and send in 
your order. At $10.00 for 12 issues, it too is a quality and quantity 
item. I just saw the first issue, and can't wait for my copies to arrive. 
Address on this is Computer Information Exchange, Inc. PO Box 156 
San Luis Rey, Ca. 92068. 

Hope that you and the readers can make use of some of this information. 



Adios, 
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